How-To Visual DataFlex (exg2antt)

2000	How can I change the visual appearance of the filter bar's close button (solid) // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Item A" to Nothing Get ComAddItem of hoItems1 "Item B" to Nothing Get ComAddItem of hoItems1 "Item C" to Nothing Send Destroy to hoItems1 Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible Set ComBackground OLEexFooterFilterBarButton to (RGB(255,0,0)) Send ComEndUpdate End_Procedure
1999	Is it possible to prevent definitely showing the filter bar's close button // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Item A" to Nothing Get ComAddItem of hoItems1 "Item B" to Nothing Get ComAddItem of hoItems1 "Item C" to Nothing Send Destroy to hoItems1 Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible Set ComBackground OLEexFooterFilterBarButton to -1 Send ComEndUpdate End_Procedure
1998	Is it possible to show the close button only if there is a filter applied // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Item A" to Nothing Get ComAddItem of hoItems1 "Item B" to Nothing Get ComAddItem of hoItems1 "Item C" to Nothing Send Destroy to hoItems1 Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseIfRequired + OLEexFilterBarPromptVisible) Send ComEndUpdate End_Procedure
1997	The control's filter bar is not closed once I click the close button (toggle) // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Item A" to Nothing Get ComAddItem of hoItems1 "Item B" to Nothing Get ComAddItem of hoItems1 "Item C" to Nothing Set ComLockedItemCount of hoItems1 OLEexBottom to 1 Variant h Get ComLockedItem of hoItems1 OLEexBottom 0 to h Set ComItemDivider of hoItems1 h to 0 Set ComCellValue of hoItems1 h 0 to "<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus." Set ComCellValueFormat of hoItems1 h 0 to OLEexHTML Send Destroy to hoItems1 Set ComFilterBarCaption to "`<r><fgcolor=808080>` + value" Set ComFilterBarPromptPattern to "B" Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarToggle + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible) Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComItem of hoColumns2 0 to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComFilterType of hoColumn2 to OLEexFilter Set ComFilter of hoColumn2 to "Item B" Send Destroy to hoColumn2 Send Destroy to hoColumns2 Send ComApplyFilter Send ComEndUpdate End_Procedure
1996	How can I display the control's filter on a single line // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Item A" to Nothing Get ComAddItem of hoItems1 "Item B" to Nothing Get ComAddItem of hoItems1 "Item C" to Nothing Send Destroy to hoItems1 Set ComFilterBarCaption to "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`" Set ComFilterBarPromptVisible to (OLEexFilterBarSingleLine + OLEexFilterBarVisible) Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComItem of hoColumns2 0 to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComFilterType of hoColumn2 to OLEexFilter Set ComFilter of hoColumn2 to "Item A\|Item B" Send Destroy to hoColumn2 Send Destroy to hoColumns2 Send ComApplyFilter Send ComEndUpdate End_Procedure
1995	How can I display the control's filter on a single line (prompt-combined) // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Item A" to Nothing Get ComAddItem of hoItems1 "Item B" to Nothing Get ComAddItem of hoItems1 "Item C" to Nothing Send Destroy to hoItems1 Set ComFilterBarCaption to "`<r>` + value" Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible) Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComItem of hoColumns2 0 to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComFilterType of hoColumn2 to OLEexFilter Set ComFilter of hoColumn2 to "Item A\|Item B" Send Destroy to hoColumn2 Send Destroy to hoColumns2 Send ComApplyFilter Send ComEndUpdate End_Procedure
1994	How can I get the number of results after a filter is applied // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure // Occurs when the user presses and then releases the left mouse button over the tree control. Procedure OnComClick Forward Send OnComClick Send ComClearFilter End_Procedure // Occurs when the filter was changed. Procedure OnComFilterChange Forward Send OnComFilterChange Variant v Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComMatchItemCount of hoItems1 to v Send Destroy to hoItems1 Showln "Items.MatchItemCount" v Variant vA Variant voItems2 Get ComItems to voItems2 Handle hoItems2 Get Create (RefClass(cComItems)) to hoItems2 Set pvComObject of hoItems2 to voItems2 Get ComMatchItemCount of hoItems2 to vA Send Destroy to hoItems2 Showln (ComFormatABC(Self,"value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",vA,Nothing,Nothing)) End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems3 Get ComItems to voItems3 Handle hoItems3 Get Create (RefClass(cComItems)) to hoItems3 Set pvComObject of hoItems3 to voItems3 Get ComAddItem of hoItems3 "Item A" to Nothing Get ComAddItem of hoItems3 "Item B" to Nothing Get ComAddItem of hoItems3 "Item C" to Nothing Send Destroy to hoItems3 Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible Set ComFilterBarPromptPattern to "Item" Send ComEndUpdate End_Procedure
1993	How can I programmatically clear the control's filter // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure // Occurs when the user presses and then releases the left mouse button over the tree control. Procedure OnComClick Forward Send OnComClick Send ComClearFilter End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Item A" to Nothing Get ComAddItem of hoItems1 "Item B" to Nothing Get ComAddItem of hoItems1 "Item C" to Nothing Send Destroy to hoItems1 Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible Set ComFilterBarPromptPattern to "B" Send ComEndUpdate End_Procedure
1992	Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined) // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Item A" to Nothing Get ComAddItem of hoItems1 "Item B" to Nothing Get ComAddItem of hoItems1 "Item C" to Nothing Send Destroy to hoItems1 Set ComFilterBarPromptPattern to "B" Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible) Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComItem of hoColumns2 0 to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComFilterType of hoColumn2 to OLEexFilter Set ComFilter of hoColumn2 to "Item B" Send Destroy to hoColumn2 Send Destroy to hoColumns2 Send ComApplyFilter Send ComEndUpdate End_Procedure
1991	Is it possible to prevent closing the control's filter bar, so it is always shown (prompt) // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Item A" to Nothing Get ComAddItem of hoItems1 "Item B" to Nothing Get ComAddItem of hoItems1 "Item C" to Nothing Send Destroy to hoItems1 Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible Set ComFilterBarPromptPattern to "B" Send ComEndUpdate End_Procedure
1990	Is it possible to prevent closing the control's filter bar, so it is always shown // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" "12/4/2017" "12/14/2017" Nothing Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/2/2017" Set ComPaneWidth of hoChart False to 256 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComAllowSort of hoColumn1 to False Set ComWidth of hoColumn1 to 32 Set ComFormatColumn of hoColumn1 to "1 apos ``" Set ComPosition of hoColumn1 to 0 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Item A" to Nothing Get ComAddItem of hoItems1 "Item B" to Nothing Get ComAddItem of hoItems1 "Item C" to Nothing Send Destroy to hoItems1 Set ComFilterBarCaption to "len(value) = 0 ? `<fgcolor=808080>no filter` : value" Set ComFilterBarPromptVisible to OLEexFilterBarVisible Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComItem of hoColumns2 0 to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComFilterType of hoColumn2 to OLEexFilter Set ComFilter of hoColumn2 to "Item B" Send Destroy to hoColumn2 Send Destroy to hoColumns2 Send ComApplyFilter Send ComEndUpdate End_Procedure
1989	What are the options to align the percent caption Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Clip" to Nothing Send Destroy to hoColumns Set ComScrollBySingleLine to True Set ComDrawGridLines to OLEexRowLines Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComAllowResizeChart of hoChart to (OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader) Set ComDrawGridLines of hoChart to OLEexRowLines Set ComFirstVisibleDate of hoChart to "12/26/2000" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 256 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task%Progress" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Set ComPattern of hoBar to OLEexPatternBox Set ComColor of hoBar to (RGB(164,164,164)) Set ComStartColor of hoBar to (RGB(240,240,240)) Set ComEndColor of hoBar to (ComStartColor(hoBar)) Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack) Set ComHeight of hoBar to 15 Set ComDef of hoBar OLEexBarPercent to 0.5 Set ComDef of hoBar OLEexBarShowPercentCaption to True Set ComDef of hoBar OLEexBarPercentCaptionFormat to "<sha ;;0>%p%" Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "no clip, (0-2)" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarAlignPercentCaption to 2 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K2" Nothing Set ComItemBar of hoItems h "K2" OLEexBarAlignPercentCaption to 1 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K3" Nothing Set ComItemBar of hoItems h "K3" OLEexBarAlignPercentCaption to 0 Get ComAddItem of hoItems "clip, inside (3-5)" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarAlignPercentCaption to 5 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K2" Nothing Set ComItemBar of hoItems h "K2" OLEexBarAlignPercentCaption to 4 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K3" Nothing Set ComItemBar of hoItems h "K3" OLEexBarAlignPercentCaption to 3 Get ComAddItem of hoItems "hide on min width, clip if not fit, inside (6-8)" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarAlignPercentCaption to 8 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K2" Nothing Set ComItemBar of hoItems h "K2" OLEexBarAlignPercentCaption to 7 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K3" Nothing Set ComItemBar of hoItems h "K3" OLEexBarAlignPercentCaption to 6 Get ComAddItem of hoItems "hide if not fit, no clip, inside (9-11)" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarAlignPercentCaption to 11 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K2" Nothing Set ComItemBar of hoItems h "K2" OLEexBarAlignPercentCaption to 10 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K3" Nothing Set ComItemBar of hoItems h "K3" OLEexBarAlignPercentCaption to 9 Get ComAddItem of hoItems "no clip, inside, outside (12-14)" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarAlignPercentCaption to 14 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K2" Nothing Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 13 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K3" Nothing Set ComItemBar of hoItems h "K3" OLEexBarAlignPercentCaption to 12 Get ComAddItem of hoItems "no clip, outside (16-18)" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarAlignPercentCaption to 18 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K2" Nothing Set ComItemBar of hoItems h "K2" OLEexBarAlignPercentCaption to 17 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K3" Nothing Set ComItemBar of hoItems h "K3" OLEexBarAlignPercentCaption to 16 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1988	Is it possible to determine whether a bar is in the current display area // Occurs when a bar is moving or resizing. Procedure OnComBarResizing HITEM llItem Variant llKey Forward Send OnComBarResizing llItem llKey Send ComRefresh End_Procedure // Occurs when the first visible date is changed. Procedure OnComDateChange Forward Send OnComDateChange Send ComRefresh End_Procedure // Fired when a cell requires to format its caption. Procedure OnComFormatColumn HITEM llItem Integer llColIndex Variant llValue Forward Send OnComFormatColumn llItem llColIndex llValue Variant v Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComItemBar of hoItems llItem "A" OLEexBarStart to v Send Destroy to hoItems Variant s Move v to s Variant v1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComItemBar of hoItems1 llItem "A" OLEexBarEnd to v1 Send Destroy to hoItems1 Variant e Move v1 to e Variant l Variant vB Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Get ComFirstVisibleDate of hoChart to vB Send Destroy to hoChart Get ComFormatABC "A < B" e vB Nothing to l Variant r Variant vB1 Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Get ComDateFromPoint of hoChart1 1 -1 to vB1 Send Destroy to hoChart1 Get ComFormatABC "A > B" s vB1 Nothing to r Get ComFormatABC "( A or B ) ? `<fgcolor=C0C0C0>hidden` : `<b>visible`" l r Nothing to Value End_Procedure // Occurs when column's position or column's size is changed. Procedure OnComLayoutChanged Forward Send OnComLayoutChanged Send ComRefresh End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSelBackMode to OLEexTransparent Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn Get ComAdd of hoColumns1 "Visible" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComFireFormatColumn of hoColumn to True Set ComDef of hoColumn OLEexCellValueFormat to 1 Send Destroy to hoColumn Send Destroy to hoColumns1 Variant voChart2 Get ComChart to voChart2 Handle hoChart2 Get Create (RefClass(cComChart)) to hoChart2 Set pvComObject of hoChart2 to voChart2 Set ComOverviewVisible of hoChart2 to OLEexOverviewShowAll Set ComOverviewHeight of hoChart2 to 64 Set ComFirstVisibleDate of hoChart2 to "8/1/2017" Set ComLevelCount of hoChart2 to 2 Set ComPaneWidth of hoChart2 False to 128 Variant v2 Get ComSelBackColor to v2 Set ComSelBackColor of hoChart2 to v2 Set ComSelBarColor of hoChart2 to (RGB(128,128,128)) Send Destroy to hoChart2 Set ComSelBackColor to (ComBackColor(Self)) Set ComSelForeColor to (ComForeColor(Self)) Variant voItems2 Get ComItems to voItems2 Handle hoItems2 Get Create (RefClass(cComItems)) to hoItems2 Set pvComObject of hoItems2 to voItems2 Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 1")) "Task" "8/2/2017" "8/8/2017" "A" Nothing Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 2")) "Task" "8/3/2018" "8/10/2018" "A" Nothing Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 3")) "Task" "8/4/2019" "8/12/2019" "A" Nothing Set ComSelectItem of hoItems2 (ComFocusItem(hoItems2)) to True Send Destroy to hoItems2 Send ComEndUpdate End_Procedure
1987	How can I ensure that the bar fits the control's client area // Fired after a new item has been selected. Procedure OnComSelectionChanged Forward Send OnComSelectionChanged Variant v Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComFocusItem of hoItems to v Send Destroy to hoItems Variant h Move v to h Variant v1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComFirstItemBar of hoItems1 h to v1 Send Destroy to hoItems1 Variant k Move v1 to k Variant s Variant vA Variant voItems2 Get ComItems to voItems2 Handle hoItems2 Get Create (RefClass(cComItems)) to hoItems2 Set pvComObject of hoItems2 to voItems2 Get ComItemBar of hoItems2 h k OLEexBarStart to vA Send Destroy to hoItems2 Variant vB Variant voItems3 Get ComItems to voItems3 Handle hoItems3 Get Create (RefClass(cComItems)) to hoItems3 Set pvComObject of hoItems3 to voItems3 Get ComItemBar of hoItems3 h k OLEexBarEnd to vB Send Destroy to hoItems3 Get ComFormatABC "(A+B)/2" vA vB Nothing to s Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Send ComScrollTo of hoChart s 1 Send Destroy to hoChart End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSelBackMode to OLEexTransparent Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Set ComFirstVisibleDate of hoChart1 to "8/1/2017" Set ComLevelCount of hoChart1 to 2 Set ComPaneWidth of hoChart1 False to 128 Variant v2 Get ComSelBackColor to v2 Set ComSelBackColor of hoChart1 to v2 Set ComSelBarColor of hoChart1 to (RGB(128,128,128)) Send Destroy to hoChart1 Variant voItems4 Get ComItems to voItems4 Handle hoItems4 Get Create (RefClass(cComItems)) to hoItems4 Set pvComObject of hoItems4 to voItems4 Send ComAddBar of hoItems4 (ComAddItem(hoItems4,"Task 1")) "Task" "8/2/2017" "8/8/2017" Nothing Nothing Send ComAddBar of hoItems4 (ComAddItem(hoItems4,"Task 2")) "Task" "8/3/2018" "8/10/2018" Nothing Nothing Send ComAddBar of hoItems4 (ComAddItem(hoItems4,"Task 3")) "Task" "8/4/2019" "8/12/2019" Nothing Nothing Set ComSelectItem of hoItems4 (ComFocusItem(hoItems4)) to True Send Destroy to hoItems4 Send ComEndUpdate End_Procedure
1986	Is it possible to change the caption from a column without to remove the column and add it with the new caption Procedure OnCreate Forward Send OnCreate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "ColumnName" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComCaption of hoColumn to "NewName" Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "ColumnName" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComHTMLCaption of hoColumn1 to "<b>New</b>Name" Send Destroy to hoColumn1 Send Destroy to hoColumns1 End_Procedure
1985	How can I display the bar's duration in days, minutes, and so so on Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComAllowSizing of hoColumn to False Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "Duration" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 513 Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "A" Set ComFormatColumn of hoColumn1 to "trim((1:=int((0:=value)/365) ? =:1 + ` year(s) ` : ``) + (1:=int((0:=(=:0 - (=:1365)))/31) ? =:1 + ` month(s) ` : ``) + (1:=int((0:=(=:0 - (=:131)))/7) ? =:1 + ` week(s) ` : ``) + (1:=int((0:=(=:0 - (=:17)))/1) ? =:1 + ` day(s) ` : ``) + (1:=int((0:=(=:0 - =:1 + 1/24/60/60/2))24) ? =:1 + ` hour(s) ` : ``) + (1:=int((0:=(=:024 - =:1))60) ? =:1 + ` min(s) ` : ``) + (1:=int((0:=(=:060 - =:1))60) ? =:1 + ` sec(s)` : ``))" Send Destroy to hoColumn1 Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Send Destroy to hoItems Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "12/30/2001" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 196 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task:Split" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Send Destroy to hoBar Send Destroy to hoBars Set ComOverviewVisible of hoChart to OLEexOverviewShowAll Set ComOverviewHeight of hoChart to 64 Set ComResizeUnitScale of hoChart to OLEexSecond Set ComAllowResizeChart of hoChart to (OLEexAllowChangeUnitScale + OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader) Send Destroy to hoChart Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h Get ComAddItem of hoItems1 "Task 1" to h Send ComAddBar of hoItems1 h "Task" "12/31/2001" "1/7/2002" "A" Nothing Get ComAddItem of hoItems1 "Task 2" to h Send ComAddBar of hoItems1 h "Task" "1/1/2002" "2/14/2002" "A" Nothing Get ComAddItem of hoItems1 "Task 3" to h Send ComAddBar of hoItems1 h "Task" "1/2/2002 10:00:00 AM" "1/2/2002 12:00:00 PM" "A" Nothing Get ComAddItem of hoItems1 "Task 4" to h Send ComAddBar of hoItems1 h "Task" "1/3/2002" "1/4/2002 8:30:30 AM" "A" Nothing Send Destroy to hoItems1 Send ComEndUpdate End_Procedure
1984	How can I change the background color for checked items (EBN color, frame) // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex Send ComRefresh End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Set ComSelBackMode to OLEexTransparent Set ComDefaultItemHeight to 22 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEcx9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJcFqXFSLVxNBKAQEBA=" to Nothing Get ComAdd of hoAppearance 1 "CP:2 1 1 -1 -1" to Nothing Send Destroy to hoAppearance Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "%CS0 = 1" Nothing to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComBackColor of hoConditionalFormat to \|CI$1000000 Set ComChartBackColor of hoConditionalFormat to (ComBackColor(hoConditionalFormat)) Send Destroy to hoConditionalFormat Send Destroy to hoConditionalFormats Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1983	How can I change the caption of the checked items (sample 2) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Set ComSelBackColor to (ComBackColor(Self)) Set ComSelForeColor to (ComForeColor(Self)) Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Set ComDef of hoColumn OLEexCellValueFormat to 1 Set ComFormatColumn of hoColumn to "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value" Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 256 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1982	How can I change the caption of the checked items (sample 1) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Set ComDef of hoColumn OLEexCellValueFormat to 1 Set ComFormatColumn of hoColumn to "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)" Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 256 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1981	How can I change the font for the checked items // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex Send ComRefresh End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Set ComDefaultItemHeight to 22 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "%CS0 = 1" Nothing to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Variant f Get Comcreateobject of hoConditionalFormat "StdFont" to f Variant v Variant voStdFont Get ComFont to voStdFont Handle hoStdFont Get Create (RefClass(cComStdFont)) to hoStdFont Set pvComObject of hoStdFont to voStdFont Get ComName of hoStdFont to v Send Destroy to hoStdFont Set ComName of hoConditionalFormat to v Set ComSize of hoConditionalFormat to 12 Send Destroy to hoConditionalFormat Set ComFont of hoConditionalFormats to f Send Destroy to hoConditionalFormats Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 196 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v1 Get ComSelBackColor to v1 Set ComSelBackColor of hoChart to v1 Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1980	How can I bold the checked items // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex Send ComRefresh End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "%CS0 = 1" Nothing to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComBold of hoConditionalFormat to True Send Destroy to hoConditionalFormat Send Destroy to hoConditionalFormats Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1979	How can I change the foreground color for checked items // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex Send ComRefresh End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Set ComSelBackMode to OLEexTransparent Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "%CS0 = 1" Nothing to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComForeColor of hoConditionalFormat to (RGB(255,128,128)) Send Destroy to hoConditionalFormat Send Destroy to hoConditionalFormats Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1978	How can I change the background color for checked items (solid color) // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex Send ComRefresh End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Set ComSelBackMode to OLEexTransparent Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "%CS0 = 1" Nothing to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComBackColor of hoConditionalFormat to (RGB(255,128,128)) Set ComChartBackColor of hoConditionalFormat to (ComBackColor(hoConditionalFormat)) Send Destroy to hoConditionalFormat Send Destroy to hoConditionalFormats Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1977	How can I change the color for checked Task bars Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "%CS0 = 1" Nothing to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComApplyToBars of hoConditionalFormat to "Task,Summary" Set ComBarColor of hoConditionalFormat to (RGB(255,0,0)) Send Destroy to hoConditionalFormat Send Destroy to hoConditionalFormats Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1976	I have defined "NonWorkingHours" for the Gantt, and the "exBarWorkingCount" properly excludes these hours as long as the Gantt is using "exDay" or "exHour" as the level unit. However when displaying a quarter or a year, I'm changing the unit to "exWeek", but then the "NonWorkingHours" are no longer excluded from the bars "exBarWorkingCount" and displays the wrong value Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComAllowSizing of hoColumn to False Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "Working" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 258 Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "A" Set ComFormatColumn of hoColumn1 to "((1:=int(0:=( 24int(value) + (value - int(value) + 1/24/60/60/2)24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)60)) != 0 ? =:1 + ' min(s)' : '')" Send Destroy to hoColumn1 Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Send Destroy to hoItems Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComAllowResizeChart of hoChart to (OLEexAllowChangeUnitScale + OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader) Set ComPaneWidth of hoChart False to 196 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task:Split" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Send Destroy to hoBar Send Destroy to hoBars Set ComFirstVisibleDate of hoChart to "1/3/2002" Set ComLevelCount of hoChart to 2 Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComLabel of hoLevel to "<%ddd%>" Send Destroy to hoLevel Variant voLevel1 Get ComLevel of hoChart 1 to voLevel1 Handle hoLevel1 Get Create (RefClass(cComLevel)) to hoLevel1 Set pvComObject of hoLevel1 to voLevel1 Set ComLabel of hoLevel1 to "<%hh%>" Send Destroy to hoLevel1 Set ComNonworkingHours of hoChart to 16761855 Set ComShowNonworkingUnits of hoChart to False Set ComShowNonworkingUnits of hoChart to False Set ComOverviewVisible of hoChart to OLEexOverviewShowAll Set ComOverviewHeight of hoChart to 64 Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom Send Destroy to hoChart Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h Get ComAddItem of hoItems1 "Task 1" to h Send ComAddBar of hoItems1 h "Task" "1/4/2002" "1/8/2002" "A" Nothing Set ComItemBar* of hoItems1 h "A" OLEexBarKeepWorkingCount to True Get ComAddItem of hoItems1 "Task 2" to h Send ComAddBar of hoItems1 h "Task" "1/3/2002" "1/4/2002" "A" Nothing Set ComItemBar of hoItems1 h "A" OLEexBarKeepWorkingCount to True Send Destroy to hoItems1 Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Set ComUnitScale of hoChart1 to OLEexDay Send ComScrollTo of hoChart1 (ComFirstVisibleDate(hoChart1)) 1 Send Destroy to hoChart1 Send ComEndUpdate End_Procedure
1975	Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComSelBackColor to (RGB(0,0,0)) Set ComSelForeColor to (RGB(255,255,255)) Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Set ComPaneWidth of hoChart1 True to 0 Send Destroy to hoChart1 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Edit" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLEMaskType Set ComMask of hoEditor to ";;;rich" Send Destroy to hoEditor Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "" to Nothing Get ComAddItem of hoItems "Just a text" to Nothing Get ComAddItem of hoItems "" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1974	Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSelBackColor to (RGB(0,0,0)) Set ComSelForeColor to (RGB(255,255,255)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "DropDown" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Send ComAddItem of hoEditor 1 "This is just the first item" Nothing Send ComAddItem of hoEditor 2 "This is just the second item" Nothing Send ComAddItem of hoEditor 3 "This is just the third item" Nothing Set ComEditType of hoEditor to OLEDropDownType Set ComMask of hoEditor to ";;;rich" Send Destroy to hoEditor Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "" to Nothing Get ComAddItem of hoItems "Just a text" to Nothing Get ComAddItem of hoItems "" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1973	When I display the chart in the daily view, the histogram shows correctly the data while if the chart displays the data in weekly or monthly view, the histogram shows no data or incorrectly. What can be the problem // Occurs once the user selects a new time scale unit in the overview zoom area. Procedure OnComOverviewZoom Forward Send OnComOverviewZoom Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComResizeUnitScale of hoChart to OLEexDay Send Destroy to hoChart End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn Get ComAdd of hoColumns1 "Effort" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 21 Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLESpinType Send Destroy to hoEditor Send Destroy to hoColumn Send Destroy to hoColumns1 Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Set ComAllowOverviewZoom of hoChart1 to OLEexAlwaysZoom Set ComOverviewZoomCaption of hoChart1 to "\|\|\|<img>3</img>Month\|Third\|<img>2</img>Week\|<img>1</img>Day\|\|\|" Set ComLabel of hoChart1 OLEexYear to "" Set ComLabel of hoChart1 OLEexHalfYear to "" Set ComLabel of hoChart1 OLEexQuarterYear to "" Set ComLabel of hoChart1 OLEexThirdMonth to "" Set ComLabel of hoChart1 OLEexHour to "" Set ComLabel of hoChart1 OLEexMinute to "" Set ComLabel of hoChart1 OLEexSecond to "" Set ComOverviewZoomUnit of hoChart1 to 64 Set ComLevelCount of hoChart1 to 2 Set ComNonworkingDays of hoChart1 to 0 Set ComPaneWidth of hoChart1 False to 96 Set ComFirstVisibleDate of hoChart1 to "6/20/2005" Set ComHistogramVisible of hoChart1 to True Set ComHistogramHeight of hoChart1 to 128 Set ComHistogramView of hoChart1 to OLEexHistogramAllItems Set ComOverviewVisible of hoChart1 to OLEexOverviewShowAll Variant voBars Get ComBars of hoChart1 to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComHistogramPattern of hoBar to (ComPattern(hoBar)) Set ComHistogramType of hoBar to OLEexHistOverload Set ComHistogramCriticalValue of hoBar to 3 Set ComHistogramItems of hoBar to -7 Set ComHistogramGridLinesColor of hoBar to (RGB(192,192,192)) Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1)) Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Variant h1 Get ComAddItem of hoItems "Task 1" to h1 Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/23/2005" Nothing Nothing Set ComCellValue of hoItems h1 1 to 4 Get ComAddItem of hoItems "Task 2" to h1 Send ComAddBar of hoItems h1 "Task" "6/24/2005" "6/26/2005" Nothing Nothing Set ComCellValue of hoItems h1 1 to 3 Get ComAddItem of hoItems "Task 3" to h1 Send ComAddBar of hoItems h1 "Task" "6/27/2005" "6/29/2005" Nothing Nothing Set ComCellValue of hoItems h1 1 to 2 Get ComAddItem of hoItems "Task 4" to h1 Send ComAddBar of hoItems h1 "Task" "6/30/2005" "7/2/2005" Nothing Nothing Set ComCellValue of hoItems h1 1 to 1 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1972	The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that // Fired before an item is about to be expanded (collapsed). Procedure OnComBeforeExpandItem HITEM llItem Variant llCancel Forward Send OnComBeforeExpandItem llItem llCancel Showln "BeforeExpandItem" llItem Showln "ColumnFromPoint" (ComColumnFromPoint(Self,-1,-1)) Showln "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComInsertItem of hoItems llItem "new child" to Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComItemHasChildren of hoItems1 (ComInsertItem(hoItems1,,"Group 1")) to True Set ComItemHasChildren of hoItems1 (ComInsertItem(hoItems1,,"Group 2")) to True Send Destroy to hoItems1 Send ComEndUpdate End_Procedure
1971	How do I change the drop down filter icon/button (black) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA" to Nothing Send Destroy to hoAppearance Set ComBackground OLEexCursorHoverColumn to -1 Set ComBackground OLEexHeaderFilterBarButton to \|CI$1000000 Set ComBackground OLEexBackColorFilter to (RGB(0,0,1)) Set ComBackground OLEexForeColorFilter to (RGB(255,255,255)) Set ComDescription OLEexFilterBarExclude to "<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>" Set ComHeaderAppearance to OLENone2 Set ComBackColorHeader to (RGB(0,0,0)) Set ComForeColorHeader to (RGB(255,255,255)) Set ComHeaderVisible to True Set ComBackColorLevelHeader to (ComBackColor(Self)) Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Filter" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowCheckBox) Set ComDisplayFilterButton of hoColumn to True Set ComAllowSort of hoColumn to False Set ComAllowDragging of hoColumn to False Send Destroy to hoColumn Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 196 Set ComLevelCount of hoChart to 2 Variant v Get ComBackColorHeader to v Set ComBackColorLevelHeader of hoChart to v Variant v1 Get ComForeColorHeader to v1 Set ComForeColorLevelHeader of hoChart to v1 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "One" to Nothing Get ComAddItem of hoItems "Two" to Nothing Get ComAddItem of hoItems "Three" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1970	How do I change the z-order of the bars (percent) // Occurs when the user moves the mouse. Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseMove llButton llShift llX llY Variant v Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Get ComBarFromPoint of hoChart -1 -1 to v Send Destroy to hoChart Variant b Move v to b Variant i Get ComItemFromPoint -1 -1 c hit to i Variant v1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComItemBar of hoItems i b OLEexBarToolTip to v1 Send Destroy to hoItems Showln v1 End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Set ComDefaultItemHeight to 52 Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Set ComLevelCount of hoChart1 to 2 Set ComFirstVisibleDate of hoChart1 to "10/10/2017" Set ComPaneWidth of hoChart1 False to 0 Set ComNonworkingDays of hoChart1 to 0 Set ComMarkTodayColor of hoChart1 to (ComBackColor(hoChart1)) Variant voBars Get ComBars of hoChart1 to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task%Progress" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Send Destroy to hoBar Send Destroy to hoBars Variant voBars1 Get ComBars of hoChart1 to voBars1 Handle hoBars1 Get Create (RefClass(cComBars)) to hoBars1 Set pvComObject of hoBars1 to voBars1 Variant voBar1 Get ComCopy of hoBars1 "Task" "T1" to voBar1 Handle hoBar1 Get Create (RefClass(cComBar)) to hoBar1 Set pvComObject of hoBar1 to voBar1 Set ComColor of hoBar1 to (RGB(255,0,0)) Set ComDef of hoBar1 OLEexBarCaption to "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>" Set ComDef of hoBar1 OLEexBarHAlignCaption to 18 Set ComDef of hoBar1 OLEexBarPercent to 0.25 Set ComDef of hoBar1 OLEexBarPercentColor to (ComColor(hoBar1)) Set ComDef of hoBar1 OLEexBarOffset to 10 Set ComDef of hoBar1 OLEexBarShowPercentCaption to True Set ComDef of hoBar1 OLEexBarPercentCaptionFormat to "<font ;6><b>%p%</b>" Send Destroy to hoBar1 Send Destroy to hoBars1 Variant voBars2 Get ComBars of hoChart1 to voBars2 Handle hoBars2 Get Create (RefClass(cComBars)) to hoBars2 Set pvComObject of hoBars2 to voBars2 Variant voBar2 Get ComCopy of hoBars2 "Task" "T2" to voBar2 Handle hoBar2 Get Create (RefClass(cComBar)) to hoBar2 Set pvComObject of hoBar2 to voBar2 Set ComHeight of hoBar2 to 26 Set ComDef of hoBar2 OLEexBarCaption to "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>" Set ComDef of hoBar2 OLEexBarVAlignCaption to 16 Set ComDef of hoBar2 OLEexBarPercent to 0.25 Set ComDef of hoBar2 OLEexBarPercentColor to (ComColor(hoBar2)) Set ComDef of hoBar2 OLEexBarShowPercentCaption to True Set ComDef of hoBar2 OLEexBarPercentCaptionFormat to "<font ;6><b>%p%</b>" Send Destroy to hoBar2 Send Destroy to hoBars2 Send Destroy to hoChart1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h1 Get ComAddItem of hoItems1 "Task" to h1 Send ComAddBar of hoItems1 h1 "T1" "10/15/2017" "10/25/2017" "2" Nothing Set ComItemBar of hoItems1 h1 "2" OLEexBarData to "Bar A" Set ComItemBar of hoItems1 h1 "2" OLEexBarToolTip to "Bar A <b>Over</b> Bar B" Send ComAddBar of hoItems1 h1 "T2" "10/18/2017" "10/22/2017" "1" Nothing Set ComItemBar of hoItems1 h1 "1" OLEexBarData to "Bar B" Set ComItemBar of hoItems1 h1 "1" OLEexBarToolTip to "Bar B <b>Under</b> Bar A" Get ComAddItem of hoItems1 "Task" to h1 Send ComAddBar of hoItems1 h1 "T1" "10/15/2017" "10/25/2017" "1" Nothing Set ComItemBar of hoItems1 h1 "1" OLEexBarData to "Bar A" Set ComItemBar of hoItems1 h1 "1" OLEexBarToolTip to "Bar A <b>Under</b> Bar B" Send ComAddBar of hoItems1 h1 "T2" "10/18/2017" "10/22/2017" "2" Nothing Set ComItemBar of hoItems1 h1 "2" OLEexBarData to "Bar B" Set ComItemBar of hoItems1 h1 "2" OLEexBarToolTip to "Bar B <b>Over</b> Bar A" Send Destroy to hoItems1 Send ComEndUpdate End_Procedure
1969	How do I change the z-order of the bars // Occurs when the user moves the mouse. Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseMove llButton llShift llX llY Variant v Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Get ComBarFromPoint of hoChart -1 -1 to v Send Destroy to hoChart Variant b Move v to b Variant i Get ComItemFromPoint -1 -1 c hit to i Variant v1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComItemBar of hoItems i b OLEexBarToolTip to v1 Send Destroy to hoItems Showln v1 End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Set ComDefaultItemHeight to 52 Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Set ComLevelCount of hoChart1 to 2 Set ComFirstVisibleDate of hoChart1 to "10/10/2017" Set ComPaneWidth of hoChart1 False to 0 Set ComNonworkingDays of hoChart1 to 0 Set ComMarkTodayColor of hoChart1 to (ComBackColor(hoChart1)) Variant voBars Get ComBars of hoChart1 to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComCopy of hoBars "Task" "T1" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComColor of hoBar to (RGB(255,0,0)) Set ComDef of hoBar OLEexBarCaption to "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>" Set ComDef of hoBar OLEexBarHAlignCaption to 18 Send Destroy to hoBar Send Destroy to hoBars Variant voBars1 Get ComBars of hoChart1 to voBars1 Handle hoBars1 Get Create (RefClass(cComBars)) to hoBars1 Set pvComObject of hoBars1 to voBars1 Variant voBar1 Get ComCopy of hoBars1 "Task" "T2" to voBar1 Handle hoBar1 Get Create (RefClass(cComBar)) to hoBar1 Set pvComObject of hoBar1 to voBar1 Set ComHeight of hoBar1 to 25 Set ComDef of hoBar1 OLEexBarCaption to "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>" Set ComDef of hoBar1 OLEexBarVAlignCaption to 16 Send Destroy to hoBar1 Send Destroy to hoBars1 Send Destroy to hoChart1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h1 Get ComAddItem of hoItems1 "Task" to h1 Send ComAddBar of hoItems1 h1 "T1" "10/15/2017" "10/25/2017" "2" Nothing Set ComItemBar of hoItems1 h1 "2" OLEexBarData to "Bar A" Set ComItemBar of hoItems1 h1 "2" OLEexBarToolTip to "Bar A <b>Over</b> Bar B" Send ComAddBar of hoItems1 h1 "T2" "10/18/2017" "10/22/2017" "1" Nothing Set ComItemBar of hoItems1 h1 "1" OLEexBarData to "Bar B" Set ComItemBar of hoItems1 h1 "1" OLEexBarToolTip to "Bar B <b>Under</b> Bar A" Get ComAddItem of hoItems1 "Task" to h1 Send ComAddBar of hoItems1 h1 "T1" "10/15/2017" "10/25/2017" "1" Nothing Set ComItemBar of hoItems1 h1 "1" OLEexBarData to "Bar A" Set ComItemBar of hoItems1 h1 "1" OLEexBarToolTip to "Bar A <b>Under</b> Bar B" Send ComAddBar of hoItems1 h1 "T2" "10/18/2017" "10/22/2017" "2" Nothing Set ComItemBar of hoItems1 h1 "2" OLEexBarData to "Bar B" Set ComItemBar of hoItems1 h1 "2" OLEexBarToolTip to "Bar B <b>Over</b> Bar A" Send Destroy to hoItems1 Send ComEndUpdate End_Procedure
1968	How do I get the duration/working count of the bar (sample 6,excrd) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDefaultItemHeight to 48 Set ComShowFocusRect to False Set ComSelBackMode to OLEexTransparent Set ComBackColorLevelHeader to (ComBackColor(Self)) Set ComDrawGridLines to OLEexAllLines Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComDrawGridLines of hoChart to OLEexHLines Set ComPaneWidth of hoChart False to 64 Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/26/2001" Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task:Split" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Set ComDef of hoBar OLEexBarToolTip to "<%=%263%>" Set ComDef of hoBar OLEexBarOffset to -12 Send Destroy to hoBar Send Destroy to hoBars Set ComColumnsFormatLevel of hoChart to "1,2/3" Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn Get ComAdd of hoColumns1 "Duration" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 513 Set ComVisible of hoColumn to False Set ComAlignment of hoColumn to OLELeftAlignment Set ComFormatColumn of hoColumn to "value + `d`" Send Destroy to hoColumn Send Destroy to hoColumns1 Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn1 Get ComAdd of hoColumns2 "Working" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 258 Set ComVisible of hoColumn1 to False Set ComAlignment of hoColumn1 to OLERightAlignment Set ComFormatColumn of hoColumn1 to "value + `w`" Send Destroy to hoColumn1 Send Destroy to hoColumns2 Variant voColumns3 Get ComColumns to voColumns3 Handle hoColumns3 Get Create (RefClass(cComColumns)) to hoColumns3 Set pvComObject of hoColumns3 to voColumns3 Variant voColumn2 Get ComAdd of hoColumns3 "Working-Period" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 263 Set ComVisible of hoColumn2 to False Set ComAlignment of hoColumn2 to OLECenterAlignment Set ComFormatColumn of hoColumn2 to "((value replace `\r\n` with `,`) replace `#` with ``) replace ` ` with ``" Send Destroy to hoColumn2 Send Destroy to hoColumns3 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2002" "1/11/2002" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/3/2002" "1/15/2002" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "12/31/2001" "1/13/2002" Nothing Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1967	How do I get the duration/working count of the bar (sample 5) // Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComItemMaxHeight of hoItems llItem to 64 Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComBackColorAlternate to (RGB(240,240,240)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 256 Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "1/1/2002" Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task:Split" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Set ComDef of hoBar OLEexBarToolTip to "<%=%263%>" Send Destroy to hoBar Send Destroy to hoBars Set ComColumnsFormatLevel of hoChart to "1,2" Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Task" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComAllowSizing of hoColumn to False Set ComWidth of hoColumn to 48 Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Duration" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 513 Set ComVisible of hoColumn1 to False Set ComAlignment of hoColumn1 to OLELeftAlignment Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComAdd of hoColumns2 "Working" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 258 Set ComVisible of hoColumn2 to False Set ComAlignment of hoColumn2 to OLERightAlignment Send Destroy to hoColumn2 Send Destroy to hoColumns2 Variant voColumns3 Get ComColumns to voColumns3 Handle hoColumns3 Get Create (RefClass(cComColumns)) to hoColumns3 Set pvComObject of hoColumns3 to voColumns3 Variant voColumn3 Get ComAdd of hoColumns3 "Working-Period" to voColumn3 Handle hoColumn3 Get Create (RefClass(cComColumn)) to hoColumn3 Set pvComObject of hoColumn3 to voColumn3 Set ComDef of hoColumn3 OLEexCellValueToItemBarProperty to 263 Set ComDef of hoColumn3 OLEexCellSingleLine to False Send Destroy to hoColumn3 Send Destroy to hoColumns3 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComAllowCellValueToItemBar of hoItems1 to True Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "1/2/2002" "1/12/2002" Nothing Nothing Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "1/3/2002" "1/15/2002" Nothing Nothing Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "1/4/2002" "1/16/2002" Nothing Nothing Send Destroy to hoItems1 Send ComEndUpdate End_Procedure
1966	How do I get the duration/working count of the bar (sample 4) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 64 Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/26/2001" Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task:Split" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Send Destroy to hoBar Send Destroy to hoBars Set ComColumnsFormatLevel of hoChart to "1,2" Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Task" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComWidth of hoColumn to 48 Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Duration" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 513 Set ComVisible of hoColumn1 to False Set ComAlignment of hoColumn1 to OLELeftAlignment Set ComFormatColumn of hoColumn1 to "value + `d`" Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComAdd of hoColumns2 "Working" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 258 Set ComVisible of hoColumn2 to False Set ComAlignment of hoColumn2 to OLERightAlignment Set ComFormatColumn of hoColumn2 to "value + `w`" Send Destroy to hoColumn2 Send Destroy to hoColumns2 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2002" "1/12/2002" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/3/2002" "1/15/2002" Nothing Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1965	How do I get the duration/working count of the bar (sample 3) // Occurs when a bar is moving or resizing. Procedure OnComBarResizing HITEM llItem Variant llKey Forward Send OnComBarResizing llItem llKey Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Showln (ComCellCaption(hoItems,llItem,0)) "Working" (ComItemBar(hoItems,llItem,llKey,OLEexBarWorkingCount)) Showln (ComCellCaption(hoItems,llItem,0)) "Duration" (ComItemBar(hoItems,llItem,llKey,OLEexBarDuration)) Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 64 Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/26/2001" Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task:Split" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Task" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComWidth of hoColumn to 48 Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "1/2/2002" "1/12/2002" Nothing Nothing Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "1/3/2002" "1/15/2002" Nothing Nothing Send Destroy to hoItems1 Send ComEndUpdate End_Procedure
1964	How do I get the duration/working count of the bar (sample 2) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 64 Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/26/2001" Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task:Split" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Set ComDef of hoBar OLEexBarCaption to "<%=%258%>w" Set ComDef of hoBar OLEexBarHAlignCaption to 18 Set ComDef of hoBar OLEexBarExtraCaption to "<%=%513%>d" Set ComDef of hoBar OLEexBarExtraCaptionHAlign to 16 Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Task" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComWidth of hoColumn to 48 Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2002" "1/12/2002" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/3/2002" "1/15/2002" Nothing Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1963	How do I get the duration/working count of the bar (sample 1) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 196 Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "1/1/2002" Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task:Split" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Task" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComWidth of hoColumn to 48 Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Duration" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 513 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComAdd of hoColumns2 "Working" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 258 Send Destroy to hoColumn2 Send Destroy to hoColumns2 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2002" "1/12/2002" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/3/2002" "1/15/2002" Nothing Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1962	How can I draw a solid frame around the the focusing item Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSingleSel to False Set ComDefaultItemHeight to 20 Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Set ComRenderType of hoAppearance to -1 Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wHIURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJTULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLREE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA=" to Nothing Send Destroy to hoAppearance Set ComShowFocusRect to True Set ComBackground OLEexShowFocusRect to \|CI$1000000 Set ComLinesAtRoot to OLEexLinesAtRoot Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 1 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "P1" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1961	The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSingleSel to False Set ComDefaultItemHeight to 20 Set ComShowFocusRect to True Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Set ComRenderType of hoAppearance to -1 Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzVAcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTRWjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGgTgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg=" to Nothing Get ComAdd of hoAppearance 3 "CP:2 -3 0 3 0" to Nothing Send Destroy to hoAppearance Set ComBackground OLEexShowFocusRect to \|CI$3010101 Set ComLinesAtRoot to OLEexLinesAtRoot Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 1 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "P1" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1960	The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSingleSel to False Set ComShowFocusRect to True Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DYBg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJwNkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQfQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6AOBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==" to Nothing Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQHIMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSWJajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHKUggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4JEYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+TZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=" to Nothing Get ComAdd of hoAppearance 3 "CP:2 -2 0 2 0" to Nothing Send Destroy to hoAppearance Set ComSelBackColor to \|CI$1000000 Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 1 Send Destroy to hoChart Set ComBackground OLEexShowFocusRect to \|CI$3ff0000 Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "P1" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1959	How can I display the start/end margins of bars, when cursor hovers it like a tooltip Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "exBarToolTip" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 96 Set ComFirstVisibleDate of hoChart to "1/1/2001" Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComDef of hoBar OLEexBarToolTip to "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>" Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Bar.Def")) "Task" "1/2/2001" "1/9/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Bar.Def")) "Task" "1/3/2001" "1/10/2001" "K1" Nothing Variant h Get ComAddItem of hoItems "Items.ItemBar" to h Send ComAddBar of hoItems h "Unknown" "1/4/2001" "1/11/2001" "K" Nothing Set ComItemBar of hoItems h "K" OLEexBarToolTip to "Start:<%=%1%><br>End:<%=%2%>" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1958	Is it possible to define different kinds of summary bars with using the EBN files Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Set ComRenderType of hoAppearance to -16777216 Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDAMgBQKAAzQFAYahuGSGAAGMYxQgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQyDAAUIjOKsIhkGYcZAGQBJCjWGodQLOEgwHIERQjEyUJAGGQIHhyPYbUbGUpQHKkeRtGqgBgoKhKEouNYgAbGYIwTRsdyfDSXBpEWwbDgkNQwWTDNoRDIUQStCysaYjOpnfrUAJ1P7FdQ1NJkXRhGSSK7maapaiCSZ6STCMj1FhVKSNJ7DQKhGpgKh/ApgYpQOK4fLNXyRBK4QAyKA6bgPFZOZbFViaXY1V5bNKrcjhHQwAyHJ4XXRdV4YRAkUT4GqiJKGSYcQhuXZWbRqO6ABhef6DRThc6jKpFHIE4llEcojHqSZNgoIxnlgd5thsLREleL43gsYZ9BkaAYkMAgAm+CxGDWWAtiKCRfjcdRgHoHYnicUwgAIEIREAaQYkcQZUHIGRUDQJBOEYRAhDYCxGgMZAkCgdYQhaXQIAYERwQuahXggdgeG6VZ4H4IhdiIGIOB8YIiGiHZZgqYpGF4KYHiKCI+CAU5jCiTQ2g0YhEFyax4gABAEIC" to Nothing Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABU0IQAAYAQGKQYhiAKBQAGaAoDDcMA4QwAAyjAKMEwsACEIrjKCRShyCYZRhGcTAJBMIhiGQYAChEZxVhEMgzDjIAxSJAcQRFESaAABGCQGh+N4/S4NIi0CIsZQjCaiZ7pKA5bgMCo+UrNMixZQVCSOGChYRpCaZWpGGodQRUFbVHAlKypJKCKrEWSrDhuYAAW7XM7yBS1TzVNSuLZtaLqSroAJ1WTWMB0Ra8NzZEKfaZACj4arKejrRDCMAggI=" to Nothing Send Destroy to hoAppearance Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 128 Set ComFirstVisibleDate of hoChart to "1/1/2001" Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComDef of hoBar OLEexBarHAlignCaption to 18 Set ComColor of hoBar to (RGB(1,0,0)) Send Destroy to hoBar Send Destroy to hoBars Variant voBars1 Get ComBars of hoChart to voBars1 Handle hoBars1 Get Create (RefClass(cComBars)) to hoBars1 Set pvComObject of hoBars1 to voBars1 Variant voBar1 Get ComItem of hoBars1 "Summary" to voBar1 Handle hoBar1 Get Create (RefClass(cComBar)) to hoBar1 Set pvComObject of hoBar1 to voBar1 Set ComDef of hoBar1 OLEexBarHAlignCaption to 18 Set ComColor of hoBar1 to \|CI$2000000 Send Destroy to hoBar1 Send Destroy to hoBars1 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant hSummaryJ Get ComAddItem of hoItems "Summary A" to hSummaryJ Send ComAddBar of hoItems hSummaryJ "Summary" "1/2/2001" "1/2/2001" "J" Nothing Variant hTaskJ Get ComInsertItem of hoItems hSummaryJ "Task A.1" to hTaskJ Send ComAddBar of hoItems hTaskJ "Task" "1/2/2001" "1/5/2001" "J1" Nothing Get ComInsertItem of hoItems hSummaryJ "Task A.2" to hTaskJ Send ComAddBar of hoItems hTaskJ "Task" "1/4/2001" "1/8/2001" "J2" Nothing Send ComDefineSummaryBars of hoItems hSummaryJ "J" -1 "<>" Variant hSummaryK Get ComAddItem of hoItems "Summary B" to hSummaryK Send ComAddBar of hoItems hSummaryK "Summary" "1/2/2001" "1/2/2001" "K" Nothing Variant hTaskK Get ComInsertItem of hoItems hSummaryK "Task B.1" to hTaskK Send ComAddBar of hoItems hTaskK "Task" "1/2/2001" "1/5/2001" "K1" Nothing Get ComInsertItem of hoItems hSummaryK "Task B.2" to hTaskK Send ComAddBar of hoItems hTaskK "Task" "1/4/2001" "1/8/2001" "K2" Nothing Send ComDefineSummaryBars of hoItems hSummaryK "K" -1 "<>" Set ComItemBar of hoItems 0 "<K>" OLEexBarColor to 255 Variant hSummaryZ Get ComAddItem of hoItems "Summary B" to hSummaryZ Send ComAddBar of hoItems hSummaryZ "Summary" "1/2/2001" "1/2/2001" "Z" Nothing Variant hTaskZ Get ComInsertItem of hoItems hSummaryZ "Task B.1" to hTaskZ Send ComAddBar of hoItems hTaskZ "Task" "1/2/2001" "1/5/2001" "Z1" Nothing Get ComInsertItem of hoItems hSummaryZ "Task B.2" to hTaskZ Send ComAddBar of hoItems hTaskZ "Task" "1/4/2001" "1/8/2001" "Z2" Nothing Send ComDefineSummaryBars of hoItems hSummaryZ "Z" -1 "<>" Set ComItemBar of hoItems hSummaryZ "Z" OLEexBarColor to 16842496 Set ComItemBar of hoItems 0 "<Z1>" OLEexBarColor to 50266112 Set ComItemBar of hoItems 0 "<Z2>" OLEexBarColor to 33554176 Set ComExpandItem of hoItems 0 to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1957	How can I display the week-number in ISO8601 format Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/12/2007" Set ComDrawGridLines of hoChart to OLEexAllLines Set ComUnitScale of hoChart to OLEexWeek Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComFormatLabel of hoLevel to "value + `<r><off -4><fgcolor=808080><font ;6>` + year(dvalue)" Send Destroy to hoLevel Variant voLevel1 Get ComLevel of hoChart 1 to voLevel1 Handle hoLevel1 Get Create (RefClass(cComLevel)) to hoLevel1 Set pvComObject of hoLevel1 to voLevel1 Set ComFormatLabel of hoLevel1 to "(value = 1 ? `<bgcolor=000000><fgcolor=FFFFFF>` : ``) + value" Send Destroy to hoLevel1 Set ComWeekNumberAs of hoChart to OLEexISO8601WeekNumber Set ComFirstWeekDay of hoChart to OLEexMonday Send Destroy to hoChart Send ComEndUpdate End_Procedure
1956	I have a column right-aligned. How can I display its check box aligned to the right, as it appears to the left of the cell's caption Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComColumnAutoResize to True Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComDrawGridLines to OLEexVLines Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Left" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComAllowSizing of hoColumn to False Set ComWidth of hoColumn to 96 Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComFormatColumn of hoColumn to "0 pos `A-Z`" Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "Center" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComHeaderAlignment of hoColumn1 to OLECenterAlignment Set ComAlignment of hoColumn1 to (ComHeaderAlignment(hoColumn1)) Set ComAllowSizing of hoColumn1 to False Set ComWidth of hoColumn1 to 96 Set ComDef of hoColumn1 OLEexCellHasCheckBox to True Set ComFormatColumn of hoColumn1 to "0 pos `A-Z`" Send Destroy to hoColumn1 Variant voColumn2 Get ComAdd of hoColumns "Right" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComHeaderAlignment of hoColumn2 to OLERightAlignment Set ComAlignment of hoColumn2 to (ComHeaderAlignment(hoColumn2)) Set ComAllowSizing of hoColumn2 to False Set ComWidth of hoColumn2 to 96 Set ComDef of hoColumn2 OLEexCellHasCheckBox to True Set ComFormatColumn of hoColumn2 to "0 pos `A-Z`" Set ComDef of hoColumn2 OLEexCellDrawPartsOrder to "caption,check,icon,icons,picture" Send Destroy to hoColumn2 Get ComAdd of hoColumns "" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellState of hoItems (ComAddItem(hoItems,"Item 1")) 3 to 1 Set ComCellState of hoItems (ComAddItem(hoItems,"Item 2")) 2 to 1 Set ComCellState of hoItems (ComAddItem(hoItems,"Item 3")) 1 to 1 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1955	Can I display the column's multiple-lines caption vertically oriented (method 2) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComHeaderHeight to 48 Set ComColumnAutoResize to True Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "And others ..." to Nothing Variant voColumn Get ComAdd of hoColumns "" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComHTMLCaption of hoColumn to "First Column" Set ComHeaderVertical of hoColumn to True Set ComWidth of hoColumn to 36 Set ComAllowSizing of hoColumn to False Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComDef of hoColumn OLEexCellPaddingLeft to 8 Set ComPosition of hoColumn to 0 Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComHTMLCaption of hoColumn1 to "<c><b>Second Column" Set ComHeaderVertical of hoColumn1 to True Set ComWidth of hoColumn1 to 36 Set ComAllowSizing of hoColumn1 to False Set ComDef of hoColumn1 OLEexCellHasCheckBox to True Set ComDef of hoColumn1 OLEexCellPaddingLeft to 8 Set ComPosition of hoColumn1 to 1 Send Destroy to hoColumn1 Variant voColumn2 Get ComAdd of hoColumns "" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComHTMLCaption of hoColumn2 to "<r>Third Column" Set ComHeaderVertical of hoColumn2 to True Set ComWidth of hoColumn2 to 36 Set ComAllowSizing of hoColumn2 to False Set ComDef of hoColumn2 OLEexCellHasCheckBox to True Set ComDef of hoColumn2 OLEexCellPaddingLeft to 8 Set ComPosition of hoColumn2 to 2 Send Destroy to hoColumn2 Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellState of hoItems (ComAddItem(hoItems,"Item 1")) 3 to 1 Set ComCellState of hoItems (ComAddItem(hoItems,"Item 2")) 2 to 1 Set ComCellState of hoItems (ComAddItem(hoItems,"Item 3")) 1 to 1 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1954	Can I display the column's multiple-lines caption vertically oriented (method 1) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComHeaderHeight to 48 Set ComHeaderSingleLine to False Set ComColumnAutoResize to True Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "And others ..." to Nothing Variant voColumn Get ComAdd of hoColumns "First Column" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComHeaderVertical of hoColumn to True Set ComWidth of hoColumn to 36 Set ComAllowSizing of hoColumn to False Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComDef of hoColumn OLEexCellPaddingLeft to 8 Set ComPosition of hoColumn to 0 Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "Second Column" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComHeaderBold of hoColumn1 to True Set ComHeaderVertical of hoColumn1 to True Set ComWidth of hoColumn1 to 36 Set ComAllowSizing of hoColumn1 to False Set ComDef of hoColumn1 OLEexCellHasCheckBox to True Set ComDef of hoColumn1 OLEexCellPaddingLeft to 8 Set ComPosition of hoColumn1 to 1 Send Destroy to hoColumn1 Variant voColumn2 Get ComAdd of hoColumns "Third Column" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComHeaderVertical of hoColumn2 to True Set ComWidth of hoColumn2 to 36 Set ComAllowSizing of hoColumn2 to False Set ComDef of hoColumn2 OLEexCellHasCheckBox to True Set ComDef of hoColumn2 OLEexCellPaddingLeft to 8 Set ComPosition of hoColumn2 to 2 Send Destroy to hoColumn2 Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellState of hoItems (ComAddItem(hoItems,"Item 1")) 3 to 1 Set ComCellState of hoItems (ComAddItem(hoItems,"Item 2")) 2 to 1 Set ComCellState of hoItems (ComAddItem(hoItems,"Item 3")) 1 to 1 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1953	Can I display the column's caption vertically oriented (method 2) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComHeaderHeight to 48 Set ComColumnAutoResize to True Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "And others ..." to Nothing Variant voColumn Get ComAdd of hoColumns "" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComHTMLCaption of hoColumn to "First" Set ComHeaderVertical of hoColumn to True Set ComWidth of hoColumn to 20 Set ComAllowSizing of hoColumn to False Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPosition of hoColumn to 0 Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComHTMLCaption of hoColumn1 to "<c><b>Second" Set ComHeaderVertical of hoColumn1 to True Set ComWidth of hoColumn1 to 20 Set ComAllowSizing of hoColumn1 to False Set ComDef of hoColumn1 OLEexCellHasCheckBox to True Set ComPosition of hoColumn1 to 1 Send Destroy to hoColumn1 Variant voColumn2 Get ComAdd of hoColumns "" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComHTMLCaption of hoColumn2 to "<r>Third" Set ComHeaderVertical of hoColumn2 to True Set ComWidth of hoColumn2 to 20 Set ComAllowSizing of hoColumn2 to False Set ComDef of hoColumn2 OLEexCellHasCheckBox to True Set ComPosition of hoColumn2 to 2 Send Destroy to hoColumn2 Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellState of hoItems (ComAddItem(hoItems,"Item 1")) 3 to 1 Set ComCellState of hoItems (ComAddItem(hoItems,"Item 2")) 2 to 1 Set ComCellState of hoItems (ComAddItem(hoItems,"Item 3")) 1 to 1 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1952	Can I display the column's caption vertically oriented (method 1) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComHeaderHeight to 48 Set ComColumnAutoResize to True Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "And others ..." to Nothing Variant voColumn Get ComAdd of hoColumns "First" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComHeaderVertical of hoColumn to True Set ComWidth of hoColumn to 20 Set ComAllowSizing of hoColumn to False Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPosition of hoColumn to 0 Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "Second" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComHeaderBold of hoColumn1 to True Set ComHeaderVertical of hoColumn1 to True Set ComWidth of hoColumn1 to 20 Set ComAllowSizing of hoColumn1 to False Set ComDef of hoColumn1 OLEexCellHasCheckBox to True Set ComPosition of hoColumn1 to 1 Send Destroy to hoColumn1 Variant voColumn2 Get ComAdd of hoColumns "Third" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComHeaderVertical of hoColumn2 to True Set ComWidth of hoColumn2 to 20 Set ComAllowSizing of hoColumn2 to False Set ComDef of hoColumn2 OLEexCellHasCheckBox to True Set ComPosition of hoColumn2 to 2 Send Destroy to hoColumn2 Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellState of hoItems (ComAddItem(hoItems,"Item 1")) 3 to 1 Set ComCellState of hoItems (ComAddItem(hoItems,"Item 2")) 2 to 1 Set ComCellState of hoItems (ComAddItem(hoItems,"Item 3")) 1 to 1 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1951	How can I resize all task-bars 0-length Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/3/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/5/2017" Nothing Nothing Set ComItemBarEx of hoItems "itembar(513) = 0 and itembar(0) = `Task`" OLEexBarColor to 255 Set ComItemBarEx of hoItems "itembar(513) = 0 and itembar(0) = `Task`" OLEexBarDuration to "value + 1" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1950	Is it possible to mark items that holds items with 0-length (zero,empty, sample 3) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn Get ComAdd of hoColumns1 "Duration" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 513 Set ComVisible of hoColumn to False Send Destroy to hoColumn Send Destroy to hoColumns1 Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "%1 = 0" Nothing to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComBold of hoConditionalFormat to True Set ComBackColor of hoConditionalFormat to (RGB(190,190,190)) Set ComChartBackColor of hoConditionalFormat to (ComBackColor(hoConditionalFormat)) Send Destroy to hoConditionalFormat Send Destroy to hoConditionalFormats Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/3/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/5/2017" Nothing Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1949	Is it possible to mark items that holds items with 0-length (zero,empty, sample 2) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/3/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/5/2017" Nothing Nothing Set ComItemBarEx of hoItems "itembar(513) = 0" OLEexBarCaption to "`zero-length`" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1948	Is it possible to mark items that holds items with 0-length (zero,empty, sample 1) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/3/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/5/2017" Nothing Nothing Set ComItemBarEx of hoItems "itembar(513) = 0" OLEexBarBackgroundExt to "`[frame=RGB(255,0,0),framethick,pattern=6,patterncolor=RGB(255,0,0)]`" Set ComItemBarEx of hoItems "itembar(513) = 0" OLEexBarBackgroundExtInflate to "`-4,-4,4,4`" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1947	How can I find how many tasks/bars of 0-length (zero,empty) do I have Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/3/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/5/2017" Nothing Nothing Showln (ComItemBarEx(hoItems,"itembar(513) = 0",OLEexBarsCount)) Send Destroy to hoItems Send ComEndUpdate End_Procedure
1946	How can I remove all bars from selected items Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSingleSel to False Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Set ComSelBackColor of hoChart to (RGB(240,240,240)) Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack Set ComOverlaidGroup of hoBar to "Task,Task-Diff" Set ComDef of hoBar OLEexBarCaption to "<font ;6><%=%0%>" Set ComDef of hoBar OLEexBarHAlignCaption to 18 Send Destroy to hoBar Send Destroy to hoBars Variant voBars1 Get ComBars of hoChart to voBars1 Handle hoBars1 Get Create (RefClass(cComBars)) to hoBars1 Set pvComObject of hoBars1 to voBars1 Variant voBar1 Get ComCopy of hoBars1 "Task" "Task-Diff" to voBar1 Handle hoBar1 Get Create (RefClass(cComBar)) to hoBar1 Set pvComObject of hoBar1 to voBar1 Set ComHeight of hoBar1 to 4 Set ComColor of hoBar1 to (RGB(255,0,0)) Set ComDef of hoBar1 OLEexBarCaption to "<font ;6><%=%0%>" Set ComDef of hoBar1 OLEexBarHAlignCaption to 16 Send Destroy to hoBar1 Send Destroy to hoBars1 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Variant h Get ComAddItem of hoItems "Task 2" to h Send ComAddBar of hoItems h "Task" "8/3/2017" "8/9/2017" Nothing Nothing Set ComSelectItem of hoItems h to True Get ComAddItem of hoItems "Task 3" to h Send ComAddBar of hoItems h "Task" "8/4/2017" "8/13/2017" "" Nothing Send ComAddBar of hoItems h "Task-Diff" "8/5/2017" "8/14/2017" "P" Nothing Set ComSelectItem of hoItems h to True Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Showln "Bars before remove: " (ComItemBar(hoItems,0,"<>",OLEexBarsCount)) Set ComItemBarEx* of hoItems "itemisselected" OLEexBarKey to "`toberemove` + value " Send ComRemoveBar of hoItems 0 "<toberemove>" Showln "Bars after remove: " (ComItemBar(hoItems,0,"<>",OLEexBarsCount)) Send Destroy to hoItems Send ComEndUpdate End_Procedure
1945	How can I remove task bars from selected items Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSingleSel to False Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Set ComSelBackColor of hoChart to (RGB(240,240,240)) Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack Set ComOverlaidGroup of hoBar to "Task,Task-Diff" Set ComDef of hoBar OLEexBarCaption to "<font ;6><%=%0%>" Set ComDef of hoBar OLEexBarHAlignCaption to 18 Send Destroy to hoBar Send Destroy to hoBars Variant voBars1 Get ComBars of hoChart to voBars1 Handle hoBars1 Get Create (RefClass(cComBars)) to hoBars1 Set pvComObject of hoBars1 to voBars1 Variant voBar1 Get ComCopy of hoBars1 "Task" "Task-Diff" to voBar1 Handle hoBar1 Get Create (RefClass(cComBar)) to hoBar1 Set pvComObject of hoBar1 to voBar1 Set ComHeight of hoBar1 to 4 Set ComColor of hoBar1 to (RGB(255,0,0)) Set ComDef of hoBar1 OLEexBarCaption to "<font ;6><%=%0%>" Set ComDef of hoBar1 OLEexBarHAlignCaption to 16 Send Destroy to hoBar1 Send Destroy to hoBars1 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Variant h Get ComAddItem of hoItems "Task 2" to h Send ComAddBar of hoItems h "Task" "8/3/2017" "8/9/2017" Nothing Nothing Set ComSelectItem of hoItems h to True Get ComAddItem of hoItems "Task 3" to h Send ComAddBar of hoItems h "Task" "8/4/2017" "8/13/2017" "" Nothing Send ComAddBar of hoItems h "Task-Diff" "8/5/2017" "8/14/2017" "P" Nothing Set ComSelectItem of hoItems h to True Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Showln "Bars before remove: " (ComItemBar(hoItems,0,"<>",OLEexBarsCount)) Set ComItemBarEx* of hoItems "itemisselected and itembar(0) = `Task`" OLEexBarKey to "`toberemove` + value " Send ComRemoveBar of hoItems 0 "<toberemove>" Showln "Bars after remove: " (ComItemBar(hoItems,0,"<>",OLEexBarsCount)) Send Destroy to hoItems Send ComEndUpdate End_Procedure
1944	How can I change the pattern for some bars only Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Variant h Get ComAddItem of hoItems "Task 2" to h Send ComAddBar of hoItems h "Task" "8/3/2017" "8/9/2017" Nothing Nothing Set ComCellState of hoItems h 0 to 1 Get ComAddItem of hoItems "Task 3" to h Send ComAddBar of hoItems h "Task" "8/4/2017" "8/13/2017" Nothing Nothing Set ComCellState of hoItems h 0 to 1 Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Set ComItemBarEx of hoItems "cellstate(0)" OLEexBarPattern to 6 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1943	How do I apply the same effort to all bars Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Set ComHistogramView of hoChart to OLEexHistogramAllItems Set ComHistogramVisible of hoChart to True Set ComHistogramHeight of hoChart to 64 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal Set ComHistogramType of hoBar to OLEexHistOverAllocation Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/9/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Set ComItemBarEx of hoItems True OLEexBarEffort to 2 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1942	How do I apply the same percent to all bars Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task%Progress" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Set ComDef of hoBar OLEexBarShowPercentCaption to True Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/9/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Set ComItemBarEx of hoItems True OLEexBarPercent to 0.5 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1941	How can I set the same duration for all bars Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/9/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Set ComItemBarEx of hoItems True OLEexBarDuration to 4 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1940	How do I move all bars to end at the same date-time Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/9/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Set ComItemBarEx of hoItems True OLEexBarMoveEnd to "#8/15/2017#" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1939	How do I move all bars to start at the same date-time Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/9/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Set ComItemBarEx of hoItems True OLEexBarMoveStart to "#8/2/2017#" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1938	How do I apply a new color for some bars, while others should be shown with a different color Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Set ComSelBackColor of hoChart to (RGB(240,240,240)) Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack Set ComOverlaidGroup of hoBar to "Task,Task-Diff" Set ComDef of hoBar OLEexBarCaption to "<font ;6><%=%0%>" Set ComDef of hoBar OLEexBarHAlignCaption to 18 Send Destroy to hoBar Send Destroy to hoBars Variant voBars1 Get ComBars of hoChart to voBars1 Handle hoBars1 Get Create (RefClass(cComBars)) to hoBars1 Set pvComObject of hoBars1 to voBars1 Variant voBar1 Get ComCopy of hoBars1 "Task" "Task-Diff" to voBar1 Handle hoBar1 Get Create (RefClass(cComBar)) to hoBar1 Set pvComObject of hoBar1 to voBar1 Set ComHeight of hoBar1 to 4 Set ComColor of hoBar1 to (RGB(255,0,0)) Set ComDef of hoBar1 OLEexBarCaption to "<font ;6><%=%0%>" Set ComDef of hoBar1 OLEexBarHAlignCaption to 16 Send Destroy to hoBar1 Send Destroy to hoBars1 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/9/2017" Nothing Nothing Variant h Get ComAddItem of hoItems "Task 3" to h Send ComAddBar of hoItems h "Task" "8/4/2017" "8/13/2017" "" Nothing Send ComAddBar of hoItems h "Task-Diff" "8/5/2017" "8/14/2017" "P" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Set ComItemBarEx of hoItems True OLEexBarColor to "cellcaption(0) like `*2` ? 0x0000FF : 0x00FF00" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1937	How do I hide some bars, and show others Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSingleSel to False Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Set ComSelBackColor of hoChart to (RGB(240,240,240)) Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack Set ComOverlaidGroup of hoBar to "Task,Task-Diff" Set ComDef of hoBar OLEexBarCaption to "<font ;6><%=%0%>" Set ComDef of hoBar OLEexBarHAlignCaption to 18 Send Destroy to hoBar Send Destroy to hoBars Variant voBars1 Get ComBars of hoChart to voBars1 Handle hoBars1 Get Create (RefClass(cComBars)) to hoBars1 Set pvComObject of hoBars1 to voBars1 Variant voBar1 Get ComCopy of hoBars1 "Task" "Task-Diff" to voBar1 Handle hoBar1 Get Create (RefClass(cComBar)) to hoBar1 Set pvComObject of hoBar1 to voBar1 Set ComHeight of hoBar1 to 4 Set ComColor of hoBar1 to (RGB(255,0,0)) Set ComDef of hoBar1 OLEexBarCaption to "<font ;6><%=%0%>" Set ComDef of hoBar1 OLEexBarHAlignCaption to 16 Send Destroy to hoBar1 Send Destroy to hoBars1 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Variant h Get ComAddItem of hoItems "Task 2" to h Send ComAddBar of hoItems h "Task" "8/3/2017" "8/9/2017" Nothing Nothing Set ComSelectItem of hoItems h to True Get ComAddItem of hoItems "Task 3" to h Send ComAddBar of hoItems h "Task" "8/4/2017" "8/13/2017" "" Nothing Send ComAddBar of hoItems h "Task-Diff" "8/5/2017" "8/14/2017" "P" Nothing Set ComSelectItem of hoItems h to True Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Set ComItemBarEx of hoItems "-1" OLEexBarTransparent to "itembar(0) = `Task` ? 0 : 100" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1936	I like how ItemBarEx works, the question is how can I remove the bars based on the same criteria Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "8/3/2017" "8/9/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "8/4/2017" "8/13/2017" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing Showln "Bars before remove: " (ComItemBar(hoItems,0,"<>",OLEexBarsCount)) Set ComItemBarEx* of hoItems "cellcaption(0) like `2 3`" OLEexBarKey to "`toberemove` + value " Send ComRemoveBar of hoItems 0 "<toberemove>" Showln "Bars after remove: " (ComItemBar(hoItems,0,"<>",OLEexBarsCount)) Send Destroy to hoItems Send ComEndUpdate End_Procedure
1935	Is it possible to automatically color the bar being checked // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSelBackMode to OLEexTransparent Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 256 Set ComFirstVisibleDate of hoChart to "1/1/2017" Send Destroy to hoChart Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "%CS0" "check" to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComBold of hoConditionalFormat to True Set ComApplyToBars of hoConditionalFormat to "Task" Set ComBarColor of hoConditionalFormat to (RGB(0,0,1)) Send Destroy to hoConditionalFormat Send Destroy to hoConditionalFormats Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComWidth of hoColumn to 256 Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant vColumnCaption Variant voConditionalFormats1 Get ComConditionalFormats to voConditionalFormats1 Handle hoConditionalFormats1 Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1 Set pvComObject of hoConditionalFormats1 to voConditionalFormats1 Variant voConditionalFormat1 Get ComItem of hoConditionalFormats1 "check" to voConditionalFormat1 Handle hoConditionalFormat1 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1 Set pvComObject of hoConditionalFormat1 to voConditionalFormat1 Variant voConditionalFormat2 Get ComItem of hoConditionalFormat1 "check" to voConditionalFormat2 Handle hoConditionalFormat2 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2 Set pvComObject of hoConditionalFormat2 to voConditionalFormat2 Get ComExpression of hoConditionalFormat2 to vColumnCaption Send Destroy to hoConditionalFormat2 Send Destroy to hoConditionalFormat1 Send Destroy to hoConditionalFormats1 Variant voColumn1 Get ComAdd of hoColumns1 vColumnCaption to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Variant v Variant voConditionalFormats2 Get ComConditionalFormats to voConditionalFormats2 Handle hoConditionalFormats2 Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats2 Set pvComObject of hoConditionalFormats2 to voConditionalFormats2 Variant voConditionalFormat3 Get ComItem of hoConditionalFormats2 "check" to voConditionalFormat3 Handle hoConditionalFormat3 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat3 Set pvComObject of hoConditionalFormat3 to voConditionalFormat3 Variant voConditionalFormat4 Get ComItem of hoConditionalFormat3 "check" to voConditionalFormat4 Handle hoConditionalFormat4 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat4 Set pvComObject of hoConditionalFormat4 to voConditionalFormat4 Get ComExpression of hoConditionalFormat4 to v Send Destroy to hoConditionalFormat4 Send Destroy to hoConditionalFormat3 Send Destroy to hoConditionalFormats2 Set ComFormatColumn of hoColumn1 to v Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2017" "1/12/2017" Nothing Nothing Variant h Get ComAddItem of hoItems "Item 2" to h Send ComAddBar of hoItems h "Task" "1/3/2017" "1/13/2017" Nothing Nothing Set ComCellState of hoItems h 0 to 1 Get ComAddItem of hoItems "Item 3" to h Send ComAddBar of hoItems h "Task" "1/4/2017" "1/14/2017" Nothing Nothing Set ComCellState of hoItems h 0 to 1 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1934	How do I automatically bold items being checked // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSelBackMode to OLEexTransparent Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "%CS0" "check" to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComBold of hoConditionalFormat to True Send Destroy to hoConditionalFormat Send Destroy to hoConditionalFormats Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant vColumnCaption Variant voConditionalFormats1 Get ComConditionalFormats to voConditionalFormats1 Handle hoConditionalFormats1 Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1 Set pvComObject of hoConditionalFormats1 to voConditionalFormats1 Variant voConditionalFormat1 Get ComItem of hoConditionalFormats1 "check" to voConditionalFormat1 Handle hoConditionalFormat1 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1 Set pvComObject of hoConditionalFormat1 to voConditionalFormat1 Variant voConditionalFormat2 Get ComItem of hoConditionalFormat1 "check" to voConditionalFormat2 Handle hoConditionalFormat2 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2 Set pvComObject of hoConditionalFormat2 to voConditionalFormat2 Get ComExpression of hoConditionalFormat2 to vColumnCaption Send Destroy to hoConditionalFormat2 Send Destroy to hoConditionalFormat1 Send Destroy to hoConditionalFormats1 Variant voColumn1 Get ComAdd of hoColumns1 vColumnCaption to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Variant v Variant voConditionalFormats2 Get ComConditionalFormats to voConditionalFormats2 Handle hoConditionalFormats2 Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats2 Set pvComObject of hoConditionalFormats2 to voConditionalFormats2 Variant voConditionalFormat3 Get ComItem of hoConditionalFormats2 "check" to voConditionalFormat3 Handle hoConditionalFormat3 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat3 Set pvComObject of hoConditionalFormat3 to voConditionalFormat3 Variant voConditionalFormat4 Get ComItem of hoConditionalFormat3 "check" to voConditionalFormat4 Handle hoConditionalFormat4 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat4 Set pvComObject of hoConditionalFormat4 to voConditionalFormat4 Get ComExpression of hoConditionalFormat4 to v Send Destroy to hoConditionalFormat4 Send Destroy to hoConditionalFormat3 Send Destroy to hoConditionalFormats2 Set ComFormatColumn of hoColumn1 to v Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "Item 1" to Nothing Set ComCellState of hoItems (ComAddItem(hoItems,"Item 2")) 0 to 1 Get ComAddItem of hoItems "Item 3" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1933	Can I display the radio-button with a solid color Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComRadioImage False to 32699122 Set ComRadioImage True to 16777216 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Check" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasRadioButton to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "Radio 1" to Nothing Set ComCellState of hoItems (ComAddItem(hoItems,"Radio 2")) 0 to 1 Get ComAddItem of hoItems "Radio 1" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1932	Can I display the check-box with a solid color Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComCheckImage OLEUnchecked to 32699122 Set ComCheckImage OLEChecked to 16777216 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Check" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "Check 1" to Nothing Set ComCellState of hoItems (ComAddItem(hoItems,"Check 2")) 0 to 1 Get ComAddItem of hoItems "Check 3" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1931	How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexGroupLinesInsideLeaf Set ComSelBackMode to OLEexTransparent Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Format" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComFormatColumn of hoColumn1 to "%CS0" Set ComCaption of hoColumn1 to (ComFormatColumn(hoColumn1)) Set ComDef of hoColumn1 OLEexCellForeColor to 8421504 Set ComDef of hoColumn1 OLEexHeaderForeColor to (ComDef(hoColumn1,OLEexCellForeColor)) Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root" to h Get ComInsertItem of hoItems h "Item 1" to Nothing Set ComCellState of hoItems (ComInsertItem(hoItems,h,"Item 2")) 0 to 1 Set ComCellState of hoItems (ComInsertItem(hoItems,h,"Item 3")) 0 to 1 Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1930	How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Items" to Nothing Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn Get ComAdd of hoColumns1 "Format" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComFormatColumn of hoColumn to "%CD0" Set ComCaption of hoColumn to (ComFormatColumn(hoColumn)) Set ComDef of hoColumn OLEexCellForeColor to 8421504 Set ComDef of hoColumn OLEexHeaderForeColor to (ComDef(hoColumn,OLEexCellForeColor)) Send Destroy to hoColumn Send Destroy to hoColumns1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellData of hoItems (ComAddItem(hoItems,"Item 1")) 0 to 1234 Set ComCellData of hoItems (ComAddItem(hoItems,"Item 2")) 0 to "this is just an user data" Set ComCellData of hoItems (ComAddItem(hoItems,"Item 3")) 0 to "1/1/2001" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1929	How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLEDropDownListType Send ComAddItem of hoEditor 1 "Item 1" Nothing Send ComAddItem of hoEditor 2 "Item 2" Nothing Send ComAddItem of hoEditor 3 "Item 3" Nothing Send Destroy to hoEditor Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Format" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComFormatColumn of hoColumn1 to "%0" Set ComCaption of hoColumn1 to (ComFormatColumn(hoColumn1)) Set ComDef of hoColumn1 OLEexCellForeColor to 8421504 Set ComDef of hoColumn1 OLEexHeaderForeColor to (ComDef(hoColumn1,OLEexCellForeColor)) Set ComAllowSizing of hoColumn1 to False Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComAdd of hoColumns2 "Format" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComFormatColumn of hoColumn2 to "%C0" Set ComCaption of hoColumn2 to (ComFormatColumn(hoColumn2)) Set ComDef of hoColumn2 OLEexCellForeColor to 8421504 Set ComDef of hoColumn2 OLEexHeaderForeColor to (ComDef(hoColumn2,OLEexCellForeColor)) Set ComAllowSizing of hoColumn2 to False Send Destroy to hoColumn2 Send Destroy to hoColumns2 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems 1 to Nothing Set ComCellValue of hoItems (ComAddItem(hoItems,0)) 0 to 2 Get ComAddItem of hoItems 2 to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1928	How can I use the ShowNonworkingHours property (hide the non-working hours) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Set ComUnitScale of hoChart to OLEexHour Set ComNonworkingHours of hoChart to 16253183 Set ComShowNonworkingHours of hoChart to False Set ComShowNonworkingUnits of hoChart to False Send Destroy to hoChart Send ComEndUpdate End_Procedure
1927	How can I use the ShowNonworkingDates property (hide the non-working days) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Set ComUnitScale of hoChart to OLEexDay Set ComShowNonworkingDates of hoChart to False Set ComShowNonworkingUnits of hoChart to False Send Destroy to hoChart Send ComEndUpdate End_Procedure
1926	How can I show/hide bars once the user checks or un-checks a column // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComItemBarEx of hoItems True OLEexBarTransparent to "cellstate(0) = 1 ? 0 : 100" Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h Get ComAddItem of hoItems1 "Project" to h Variant hChild Get ComInsertItem of hoItems1 h "Task 1" to hChild Send ComAddBar of hoItems1 hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems1 hChild to True Get ComInsertItem of hoItems1 h "Task 2" to hChild Send ComAddBar of hoItems1 hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems1 hChild 0 to 1 Get ComInsertItem of hoItems1 h "Task 3" to hChild Send ComAddBar of hoItems1 hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Send ComAddBar of hoItems1 h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems1 h "sum" -3 "" Set ComExpandItem of hoItems1 h to True Set ComItemBarEx of hoItems1 True OLEexBarTransparent to "cellstate(0) = 1 ? 0 : 100" Send Destroy to hoItems1 Send ComEndUpdate End_Procedure
1925	How can I change the color for all Task bars Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "itembar(0) = `Task`" OLEexBarColor to 65280 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1924	Is it possible to automatically select bars only when user selects a new item // Fired after a new item has been selected. Procedure OnComSelectionChanged Forward Send OnComSelectionChanged Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComItemBarEx of hoItems True OLEexBarSelected to "itemisselected" Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComAllowSelectObjects of hoChart to OLEexNoSelectObjects Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h Get ComAddItem of hoItems1 "Project" to h Variant hChild Get ComInsertItem of hoItems1 h "Task 1" to hChild Send ComAddBar of hoItems1 hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems1 hChild to True Get ComInsertItem of hoItems1 h "Task 2" to hChild Send ComAddBar of hoItems1 hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems1 hChild 0 to 1 Get ComInsertItem of hoItems1 h "Task 3" to hChild Send ComAddBar of hoItems1 hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems1 hChild 0 to 1 Send ComAddBar of hoItems1 h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems1 h "sum" -3 "" Set ComExpandItem of hoItems1 h to True Send Destroy to hoItems1 Send ComEndUpdate End_Procedure
1923	Is it possible to automatically select bars only when the user clicks the column's checkbox // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComItemBarEx of hoItems True OLEexBarSelected to "cellstate(0) = 1" Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComAllowSelectObjects of hoChart to OLEexNoSelectObjects Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h Get ComAddItem of hoItems1 "Project" to h Variant hChild Get ComInsertItem of hoItems1 h "Task 1" to hChild Send ComAddBar of hoItems1 hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems1 hChild to True Get ComInsertItem of hoItems1 h "Task 2" to hChild Send ComAddBar of hoItems1 hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems1 hChild 0 to 1 Get ComInsertItem of hoItems1 h "Task 3" to hChild Send ComAddBar of hoItems1 hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems1 hChild 0 to 1 Send ComAddBar of hoItems1 h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems1 h "sum" -3 "" Set ComExpandItem of hoItems1 h to True Send Destroy to hoItems1 Send ComEndUpdate End_Procedure
1922	How do I select all bars on leaf items Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "itemlevel = 1" OLEexBarSelected to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1921	How can I change the caption for all checked Task bars Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "(cellstate(0) = 1) and (itembar(0) = `Task`)" OLEexBarCaption to "`new caption`" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1920	How can I change the caption for all Task bars Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "(itembar(0) = `Task`)" OLEexBarCaption to "`new caption`" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1919	How can I change the caption for all bars Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems True OLEexBarCaption to "`new caption`" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1918	How can I move all Task bars to end at the same date time Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "(itembar(0) = `Task`)" OLEexBarMove to "#8/14/2017# - itembar(2)" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1917	How can I move all Task bars to start at the same date time Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "(itembar(0) = `Task`)" OLEexBarMove to "#8/3/2017# - itembar(1)" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1916	How can I change the color for checked Task bars Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "cellstate(0) = 1 and itembar(0) = `Task`" OLEexBarColor to 255 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1915	How do I resize all Task bars programatically Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "itembar(0) = `Task`" OLEexBarEnd to "value + 2" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1914	How do I move just the checked Task bars in the chart Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "cellstate(0) = 1 and itembar(0) = `Task`" OLEexBarMove to -2 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1913	How do I move all Task bars in the chart Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "itembar(0) = `Task`" OLEexBarMove to 1 Send Destroy to hoItems Send ComEndUpdate End_Procedure
1912	How do I count all Task bars in the chart Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Showln (ComItemBarEx(hoItems,"itembar(0) = `Task`",OLEexBarsCount)) Send Destroy to hoItems Send ComEndUpdate End_Procedure
1911	How do I select bars whose items are checked Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels Set ComSelBackColor to (RGB(240,240,240)) Set ComSelForeColor to (RGB(0,0,0)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/1/2017" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Summary" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComStartShape of hoBar to OLEexShapeIconEmpty Set ComEndShape of hoBar to OLEexShapeIconEmpty Set ComShape of hoBar to OLEexShapeThinDown Send Destroy to hoBar Send Destroy to hoBars Variant v Get ComSelBackColor to v Set ComSelBackColor of hoChart to v Set ComSelBarColor of hoChart to (RGB(128,128,128)) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Variant hChild Get ComInsertItem of hoItems h "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing Set ComSelectItem of hoItems hChild to True Get ComInsertItem of hoItems h "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Get ComInsertItem of hoItems h "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing Set ComCellState of hoItems hChild 0 to 1 Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing Send ComDefineSummaryBars of hoItems h "sum" -3 "" Set ComExpandItem of hoItems h to True Set ComItemBarEx of hoItems "cellstate(0) = 1" OLEexBarSelected to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1910	How can I select all bars, where a specified column matches a specified criteria Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Send Destroy to hoChart Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Set ComPaneWidth of hoChart1 False to 48 Send Destroy to hoChart1 Variant voChart2 Get ComChart to voChart2 Handle hoChart2 Get Create (RefClass(cComChart)) to hoChart2 Set pvComObject of hoChart2 to voChart2 Set ComSelBarColor of hoChart2 to (RGB(255,0,0)) Send Destroy to hoChart2 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Task 1" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" "K1" Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "K2" "K2" Send ComAddBar of hoItems h "Task" "1/8/2001" "1/10/2001" "P" "P" Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "Q" "Q" Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "M" "M" Set ComItemBarEx of hoItems "cellcaption(0) = `Task 1`" OLEexBarSelected to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1909	How can I select/unselect all bars Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Send Destroy to hoChart Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Set ComPaneWidth of hoChart1 False to 48 Send Destroy to hoChart1 Variant voChart2 Get ComChart to voChart2 Handle hoChart2 Get Create (RefClass(cComChart)) to hoChart2 Set pvComObject of hoChart2 to voChart2 Set ComSelBarColor of hoChart2 to (RGB(255,0,0)) Send Destroy to hoChart2 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Task 1" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" "K1" Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "K2" "K2" Send ComAddBar of hoItems h "Task" "1/8/2001" "1/10/2001" "P" "P" Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "Q" "Q" Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "M" "M" Set ComItemBarEx of hoItems True OLEexBarSelected to True Send Destroy to hoItems Send ComEndUpdate End_Procedure
1908	Is it possible to set the background color of the chart for one item and one day Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Items" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 96 Set ComFirstVisibleDate of hoChart to "1/1/2001" Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "Item" to Nothing Variant h Get ComAddItem of hoItems "Item" to h Send ComAddBar of hoItems h "" "1/2/2001" "1/3/2001" "Back" " " Set ComItemBar of hoItems h "Back" OLEexBarBackColor to 255 Set ComItemBar of hoItems h "Back" OLEexBarSelectable to False Get ComAddItem of hoItems "Item" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1907	It is possible to search for an item ( inside the Editor ), case insensitive Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "DropDownList" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLEDropDownListType Send ComAddItem of hoEditor 1 "One" Nothing Send ComAddItem of hoEditor 2 "Two" Nothing Send ComAddItem of hoEditor 3 "Three" Nothing Send Destroy to hoEditor Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant vCaption Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComItem of hoColumns1 0 to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Variant voColumn2 Get ComItem of hoColumn1 0 to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Variant voEditor1 Get ComEditor of hoColumn2 to voEditor1 Handle hoEditor1 Get Create (RefClass(cComEditor)) to hoEditor1 Set pvComObject of hoEditor1 to voEditor1 Get ComFindItem of hoEditor1 ">ONE" to vCaption Send Destroy to hoEditor1 Send Destroy to hoColumn2 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Get ComAddItem of hoItems vCaption to Nothing Variant vCaption1 Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn3 Get ComItem of hoColumns2 0 to voColumn3 Handle hoColumn3 Get Create (RefClass(cComColumn)) to hoColumn3 Set pvComObject of hoColumn3 to voColumn3 Variant voColumn4 Get ComItem of hoColumn3 0 to voColumn4 Handle hoColumn4 Get Create (RefClass(cComColumn)) to hoColumn4 Set pvComObject of hoColumn4 to voColumn4 Variant voEditor2 Get ComEditor of hoColumn4 to voEditor2 Handle hoEditor2 Get Create (RefClass(cComEditor)) to hoEditor2 Set pvComObject of hoEditor2 to voEditor2 Get ComFindItem of hoEditor2 ">ThRee" to vCaption1 Send Destroy to hoEditor2 Send Destroy to hoColumn4 Send Destroy to hoColumn3 Send Destroy to hoColumns2 Get ComAddItem of hoItems vCaption1 to Nothing Variant vCaption2 Variant voColumns3 Get ComColumns to voColumns3 Handle hoColumns3 Get Create (RefClass(cComColumns)) to hoColumns3 Set pvComObject of hoColumns3 to voColumns3 Variant voColumn5 Get ComItem of hoColumns3 0 to voColumn5 Handle hoColumn5 Get Create (RefClass(cComColumn)) to hoColumn5 Set pvComObject of hoColumn5 to voColumn5 Variant voColumn6 Get ComItem of hoColumn5 0 to voColumn6 Handle hoColumn6 Get Create (RefClass(cComColumn)) to hoColumn6 Set pvComObject of hoColumn6 to voColumn6 Variant voEditor3 Get ComEditor of hoColumn6 to voEditor3 Handle hoEditor3 Get Create (RefClass(cComEditor)) to hoEditor3 Set pvComObject of hoEditor3 to voEditor3 Get ComFindItem of hoEditor3 "ONE" to vCaption2 Send Destroy to hoEditor3 Send Destroy to hoColumn6 Send Destroy to hoColumn5 Send Destroy to hoColumns3 Get ComAddItem of hoItems vCaption2 to Nothing Variant vCaption3 Variant voColumns4 Get ComColumns to voColumns4 Handle hoColumns4 Get Create (RefClass(cComColumns)) to hoColumns4 Set pvComObject of hoColumns4 to voColumns4 Variant voColumn7 Get ComItem of hoColumns4 0 to voColumn7 Handle hoColumn7 Get Create (RefClass(cComColumn)) to hoColumn7 Set pvComObject of hoColumn7 to voColumn7 Variant voColumn8 Get ComItem of hoColumn7 0 to voColumn8 Handle hoColumn8 Get Create (RefClass(cComColumn)) to hoColumn8 Set pvComObject of hoColumn8 to voColumn8 Variant voEditor4 Get ComEditor of hoColumn8 to voEditor4 Handle hoEditor4 Get Create (RefClass(cComEditor)) to hoEditor4 Set pvComObject of hoEditor4 to voEditor4 Get ComFindItem of hoEditor4 ">tWo" to vCaption3 Send Destroy to hoEditor4 Send Destroy to hoColumn8 Send Destroy to hoColumn7 Send Destroy to hoColumns4 Get ComAddItem of hoItems vCaption3 to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1906	The text after the BR-tag is in same line as the text before the BR-tag (entire column) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDrawGridLines to OLEexHLines Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Default" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueFormat to 1 Set ComDef of hoColumn OLEexCellSingleLine to False Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "This is the first line.<br>This is the second line." to Nothing Get ComAddItem of hoItems "This is the first line.<br>This is the second line." to Nothing Get ComAddItem of hoItems "This is the first line.<br>This is the second line." to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1905	The text after the BR-tag is in same line as the text before the BR-tag (individual) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDrawGridLines to OLEexHLines Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Default" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellValueFormat of hoItems (ComAddItem(hoItems,"This is the first line.<br>This is the second line.")) 0 to OLEexHTML Variant h Get ComAddItem of hoItems "<b>This is the first line.<br>This is the second line.</b>" to h Set ComCellValueFormat of hoItems h 0 to OLEexHTML Set ComCellSingleLine of hoItems h 0 to False Set ComCellValueFormat of hoItems (ComAddItem(hoItems,"This is the first line.<br>This is the second line.")) 0 to OLEexHTML Send Destroy to hoItems Send ComEndUpdate End_Procedure
1904	How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDrawGridLines to OLEexAllLines Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComDrawGridLines of hoChart to OLEexAllLines Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 128 Set ComFirstVisibleDate of hoChart to "1/1/2001" Send Destroy to hoChart Set ComBackColorAlternate to \|CI$7ff0f0f0 Set ComBackColorLevelHeader to (ComBackColor(Self)) Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Column" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/12/2001" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/13/2001" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/2/2001" "1/12/2001" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 4")) "Task" "1/3/2001" "1/13/2001" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 5")) "Task" "1/2/2001" "1/12/2001" Nothing Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure
1903	Can I disable an item once the user selects a new value into a different item // Occurs when the user changes the cell's content. Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue Forward Send OnComChange llItem llColIndex llNewValue Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComEnableItem of hoItems (ComItemByIndex(hoItems,1)) to llNewValue Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComFreezeEvents True Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComScrollBySingleLine to True Set ComDrawGridLines to OLEexRowLines Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Q" to Nothing Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Get ComAdd of hoColumns1 "A" to Nothing Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h1 Get ComAddItem of hoItems1 "What's your gender?" to h1 Variant voEditor Get ComCellEditor of hoItems1 h1 1 to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLEDropDownListType Send ComAddItem of hoEditor 1 "Male" Nothing Send ComAddItem of hoEditor 0 "Female" Nothing Send Destroy to hoEditor Set ComCellValue of hoItems1 h1 1 to 1 Variant h2 Get ComAddItem of hoItems1 "What's pet name?" to h2 Set ComCellValue of hoItems1 h2 1 to "This is my pet favorite long long long name, that shoul break the line in multiple pieces" Set ComCellSingleLine of hoItems1 h2 1 to False Send Destroy to hoItems1 Send ComEndUpdate Send ComFreezeEvents False End_Procedure
1902	How can I get a row expanded / enlarged to fit the cell's text (entire column) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComScrollBySingleLine to True Set ComDrawGridLines to OLEexRowLines Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Q" to Nothing Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn Get ComAdd of hoColumns1 "A" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellSingleLine to False Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLEMemoType Set ComAppearance of hoEditor to OLESingleApp Send Destroy to hoEditor Send Destroy to hoColumn Send Destroy to hoColumns1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h1 Get ComAddItem of hoItems "What's name?" to h1 Set ComCellValue of hoItems h1 1 to "This is my pet favorite long long long name, that shoul break the line in multiple pieces" Variant h2 Get ComAddItem of hoItems "What's your pet name?" to h2 Set ComCellValue of hoItems h2 1 to "This is my pet favorite long long long name, that shoul break the line in multiple pieces" Send Destroy to hoItems Send ComEndUpdate End_Procedure
1901	How can I get a row expanded / enlarged to fit the cell's text (individual cell) Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComScrollBySingleLine to True Set ComDrawGridLines to OLEexRowLines Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Q" to Nothing Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Get ComAdd of hoColumns1 "A" to Nothing Send Destroy to hoColumns1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h1 Get ComAddItem of hoItems "What's name?" to h1 Set ComCellValue of hoItems h1 1 to "This is my pet favorite long long long name, that shoul break the line in multiple pieces" Variant h2 Get ComAddItem of hoItems "What's your pet name?" to h2 Variant voEditor Get ComCellEditor of hoItems h2 1 to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLEMemoType Set ComAppearance of hoEditor to OLESingleApp Send Destroy to hoEditor Set ComCellValue of hoItems h2 1 to "This is my pet favorite long long long name, that shoul break the line in multiple pieces" Set ComCellSingleLine of hoItems h2 1 to False Send Destroy to hoItems Send ComEndUpdate End_Procedure